home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Font / Font Tools / FontPrint 1.0.2.sit / FontPrint 1.0.2.rsrc / TEXT_180_RegForm-1.txt < prev    next >
Encoding:
Text File  |  1994-09-28  |  2.9 KB  |  87 lines

  1. /Title(Registration / Order Form)def
  2. /SmallPrint(You must purchase one license (at $25 each) for each user who will be using this software. If you need to purchase multiple licenses for your site, contact us about a site license discount by calling (408) 438-3829 or by sending e-mail to hacsoft@netcom.com or waveofdave@aol.com.)def
  3. /FinePrint(Font Print software and printed output copyright 1994 by Hacienda Software. All rights reserved.)def
  4. /numLicenseLabel(Number of licenses)def
  5. /howHeardLabel(How I heard about Font Print)def
  6. /nameLabel(Name)def
  7. /companyLabel(Company)def
  8. /AddressLabel(Mailing Address)def
  9. /PhoneLabel(Telephone number (optional))def
  10. /PleaseMail(Please mail this registration form together with your check for US$25 for each license being purchased (made payable to Hacienda Software) to:)def
  11. /HacSoftAddr [ 
  12.         (Hacienda Software)
  13.         (P.O. Box 66276)
  14.         (Scotts Valley, CA 95067)
  15. ]def
  16. /TitleFont /Helvetica-Bold findfont 20 scalefont def
  17. /SmallFont /Helvetica findfont 14 scalefont def
  18. /FineFont /Helvetica findfont 9 scalefont def
  19. /LabelFont /Helvetica findfont 11 scalefont def
  20. /InfoFont /Helvetica-Bold findfont 13 scalefont def
  21.  
  22. /p/currentpoint load def/r/rmoveto load def/m/moveto load def 
  23. /x/exch load def /G/gsave load def/R/grestore load def
  24. /si{dup stringwidth pop p pop add rm gt
  25.     {p pop dup hmax gt{/hmax x def}{pop}ifelse
  26.     cr}if show ( )show}def
  27. /wrap{/tx x def /rm x def /lm x def
  28.     lm p x pop m
  29.     tx {( ) search not{si exit}if
  30.         si pop}loop
  31.         p pop dup hmax gt{/hmax x def}{pop}ifelse
  32. }def
  33. /cr {lm p ls sub x pop m}def
  34. /center{urx llx sub 1 index stringwidth pop sub 2 div llx add p x pop m}def
  35. clippath pathbbox stroke
  36. /ury x def/urx x def/lly x def/llx x def
  37. /h1 urx llx sub .05 mul llx add def
  38. /h2 urx h1 sub def
  39. /h3 urx llx sub .15 mul llx add def
  40. /h4 urx llx sub .18 mul llx add def
  41. /v1 ury lly sub 150 sub lly add def
  42. /v2 v1 20 sub def
  43. /v3 lly 80 add def
  44.  
  45. /qa [ [0 0] [0 0] [0 0] [0 0]]def
  46. /q{qa x get p 3 -1 roll astore pop}def
  47. /quad{G qa 0 get aload pop m
  48.     qa 1 get aload pop lineto qa 2 get aload pop lineto qa 3 get aload pop lineto
  49.     closepath stroke R
  50. }def
  51. /boxshow{    
  52.     G bhj neg bvj r 0 q R
  53.     G bhj neg ls r 1 q R
  54.     show
  55.     G bhj ls r 2 q R
  56.     G bhj bvj r 3 q R
  57.     quad
  58. }def /bhj 3 def /bvj -5 def
  59. /pd 20 dict def
  60. pd begin
  61. /f/fill load def
  62. /L/lineto load def/C/curveto load def
  63. /l/lineto load def/Y{2 copy curveto}def
  64. /c/C load def/g/setgray load def
  65. end
  66. /fplogo{G pd begin
  67. p translate dup scale
  68. 315 596 m
  69. 333 592 352 587 361 577 c
  70. 373 565 384 552 378 541 c
  71. 373 532 354 535 339 552 c
  72. 331 561 324 591 315 596 C
  73. f
  74. 324 654 m
  75. 342 647 360 643 369 633 c
  76. 383 617 386 601 376 592 c
  77. 369 586 348 595 344 611 c
  78. 338 631 332 647 324 654 C
  79. f
  80. 411 588 m 411 602 l 389 602 l 389 613 l 411 613 l
  81. 411 656 l 438 635 l 438 613 l 478 613 l 478 645 l
  82. 503 628 l 503 613 l 517 613 l 527 623 l 541 602 l
  83. 503 602 l 503 589 l 478 589 l 478 602 l 438 602 l
  84. 438 590 L 431 580 422 579 415 579 c
  85. 411 579 411 583 411 588 C
  86. f
  87.